home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 March / 64er_Magazin_88-03_1988_Markt__Technik_de_Side_A.d64 / window listing 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  275b  |  8 lines
  1. 10000 _w5,5,30,10,1,1,1,peek(646)
  2. 10010 print" 5 zeichen  ";:l=5:eg$="":gosub32000:printeg$
  3. 10020 print"10 zeichen  ";:l=10:eg$="":gosub32000:printeg$
  4. 10030 print"15 zeichen  ";:l=15:eg$="...............":gosub32000:printeg$
  5. 11000 end
  6. 32000 xx=51261:_wpeek(211)+peek(xx),peek(214)+peek(xx+1),l,1,1,0,0,1:printeg$
  7. 32010 open1,0:input#1,eg$:close1:_w:return
  8.